home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / background_3091.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  63 lines
  1. -- background: 3091 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Home Card
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide menubar
  9.   set the name of button id 63 to "Menus On"
  10.   put the size of this stack into card field "StackSize"
  11.   put the freesize of this stack into card field "Wasted"
  12. end opencard
  13.  
  14. on listButton ListName
  15.   if the short name of the target is "Show List" then
  16.     set name of target to "Hide List"
  17.     set visible of card field ListName to true
  18.   else
  19.     set name of target to "Show List"
  20.     set visible of card field ListName to false
  21.   end if
  22. end listButton
  23.  
  24. on domenu which
  25.   if which is "New Card" or which is "Cut card" or which is "Delete Card" then
  26.     beep 3
  27.     exit domenu
  28.   end if
  29.   if which is "Protect Stack..." then
  30.     beep 3
  31.     answer "You don't want to do that!"
  32.     exit domenu
  33.   end if
  34.   if which is "Delete Stack..." then
  35.     play boing
  36.     answer "You really don't want to do that!"
  37.     exit domenu
  38.   end if
  39.   pass domenu
  40. end domenu
  41.  
  42.  
  43.  
  44. -- part 1 (button)
  45. -- low flags: 80
  46. -- high flags: A004
  47. -- rect: left=184 top=23 right=49 bottom=309
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Developer Stack
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.  
  59.  
  60.  
  61.  
  62. end mouseup
  63.